﻿Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim db As New DatabaseCommon
        Dim ht As New Hashtable

        Dim ds As New System.Data.DataSet()

        ds = db.ExecuteProcedure("sp_GetAllQuestions", ht)
        gvQuestion.DataSource = ds
        gvQuestion.DataBind()


        Dim ht2 As New Hashtable
        Dim ds2 As New System.Data.DataSet()

        ds2 = db.ExecuteProcedure("sp_GetAllAnswers", ht2)
        gvAnswer.DataSource = ds2
        gvAnswer.DataBind()
    End Sub
End Class
